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Abstract of JP41 27235 
PURPOSE:To display a program in an easy- 
to-understand graphic expression by analyzing 
the program expressed in characters for 
extraction of each group of partial structures of 
the program, assigning a graphic having an 
area to each partial structure, and putting a 
graphic on another in an area to show the 
enclosing relation between the partial 
structures. 

CONSTITUTIONS given LISP PROGRAM is 
analyzed and a subject of conver sion is taken 
out and decided. If a list is decides as the 
subject of conversion, the heat key word of the 
list is extracted. Then, it is checked whether 
the key word is included in a conversion rule 7 
or not. If so, the key word is converted into a 
specified graphic expression based on the 
contents of the rule 7. If not, the key word is 
converted into the graphic expression of a 
general function based on the contents of the 
rule 7. Thus, the partial structures of a 
program having an extent can be satisfactorily 
displayed in the graphic expressions. 
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91 IB * 

1 . R 91 4> £ ft 
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salmis k**lt««* t>^ia^*si o 



?S(ia¥ 4-127235 (2) 
i:^«t4 ate* ^-tao^yorf 

3j?^807D/7i.4liR^fto 

10. ^H^KttSnfc^-^-K*^ * <D * 
£-r*l*3fc#8 i/:iiSI*^9(oyD/7A 

1 1. <fc * ^ d r ^ A£< N ««2g^r^r 

±-r*»*^8j&^ss3*rgi of T©v>fn 

<D 7 & V "7 A ^ fi£ 2? & □ 



12. S4r^lfi««-4>^tS»:^H^^ffi^^^^ 
»<Ot»l51iiJ:^^Dr7Aif-^cK 

iz#L<ii. x?jfs*n/:r.D/7^oa8rt 



^ 7 A^4fiSirs^«fcJ:^SH:Mt 5„ 

^o^7^^0^$ai:J;*)«^U & 

^<H S ^D/7A<D0^£aO^ftt Its 
70-f t- KiteiOlft^SSt^C.!: 

IftSK^tlT^^o * ifc s w ft h <0 y o ^ =7 A ^ ^ 

.^55i m<o\^ < r -f o r ^ a urn **& 

g zj > b* ^ - ^ ^ 1989.1 . 9. pp. 71 — 83 J K 13 fl* 
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•J , l> 1 

2*mjji73&<Dm*# 30(l)(2)(3)i:J;*?tt^ 

SB 3 0( 1 I* *3 £ L. SttlSfT 

tt if h K £ FORTRAN:/ d^-7X>T*£o 

3& 3 B ( 2 ) li ^ |R|ia(l)^^a^7AO^ai^l 

annitsr^m-r *<» tt^co&scofiiiti. en* 

ojaiCD€^)^it> 0©3 l i;^t«t f§ co 

ass tree*** Anfci^T? * m$*<oit¥WL 
i * i ^ e> 5 * tss<l s *t . eo^tcfttt^n 
-r ^ * io^^i&s (A (I) = B (I) + c 
(I) ) 0 & L&ft-f h c <t *n t £ o 



iC^Tx PL/I, PASCAL. Ada. C *> 
iCK Cobbou LISP /X if CO ifi ft tt :/ o ^ 9 i > 

(XnTt^lKiBliil^fflt L"Cl>$, 

^5*T^rt8PBa«feOE^. tf #^ 8 * * 1 U 
T*<Jg3r A U fctt^^CtOieJE-Pife * 0 

frtf 6t9T(^€<Oft»C^^« (If) LT 
Dii< s pS#<*S'J4>a?»** t T * o fir 

* $ 0 Ltz# ->t* ffti^ i 2 vtoftx-ct*^ ft 



?$RB¥4-127235 (3) 

(Z«X) *l^tfL N L V \* £ £ (I. 

@ 3 2 <DTi3Kl£tti* nTUi^OfeS (Z=Y) 

3 2©£S^R*Tft-S^i<:J:or, S3 1 co 

*&s£fi3 2 co«ia*-± 6> ^mic^jf-r * 

»*:fit||C«ig{t^crr7 £ > r O ^ ^ ^ BU o 
COT. FORTRAN , PL/ I. PASCAL. C tt Z CO 

iisl i s p u coM#5*ms-cie2E $ n^y 

D^^A^H^C^KtcJiO^^-ri^^coCT^H 

*5H(D(2)(3)i:J;l)B!Wt*. 

33 5 H ( 1 ) t* s L I SP-^or-7AT*io 
f^0<2)»iv (3JH(1 )^yo/7AOM»Ofl? 

Cf & IRQ^ c:3**> L * 4> cox* 5, S 

: i i: J: -j T&M#n3coA(tJ;*?M&** Ltt^, 
CCD'fflHi* St r Levien .R. : VisuaL Programming 
: Byte, February. 1986. pp. 13 5 — 144 J U £ 

coa^^m«-<fc*?3K*>L/tt>co-C*5o »ws^ 

a< — p — pcoMSfct-^JG * <dj& t><w&<D mm 

ZmtoL-CK^Zo CCO0JU* ^« fChang. S-K., 
Ichikawa. T. and L igomenides, P. A. :Visual 



-281- 



Languages: Plenum Press, 1986, p. 52 J K 19 it 
L.I SPTIi, *50(l)i:^Lfc 

t> & ^ ) o tifinUs £ & K «fc -p T . V^h^^o 

^ a< ft * o l i sPTii, f-nLronh 

S'J-*" * ft «> . quote 
LTV^o w (D quote *5fcfflK* 

4J tl^o ^JfcKlJfc quote 

*J tv^? 0 UfcJ&^T. quote liv 

6 S( 1 )tw«HtMK quote ^ffl^fc^D^ 



— 3850(2)<7)ii£3fe^j£Tt>. 3360(2) 
(916-13(1)® (Plus 5 6) <om&) 

m * «c ^ pg a & *< ft * • 

^^^ftTlis 0 A::/o ^5 AC0 8?# 

mm tfhvrmm. «o>gL. f-^Lt© 
y * h ) *^*<3^-efc*W4«,&*<ft£o 



?*Pfl¥4-127235 (4) 

v A^^tc #60(2)1*. SB 6 0< 1 )co^o 
^7A*fl5J2?&50<2)CD2fi£T05t£^L/tk 
So 

< 8^t*C t Jft* tB * tt ^ P4 S j& ft * o 

to * ? ti m si & *< ft * o 

-fttfcS* P A DTMi. fiHie SI 3 0(2 )T^ L 
T5SiBU - Ct^'£o t^U C <f> Common LISP U 

^S*fflv>T-«<o«i?i* A 2? • SIS L*: fcto * 

K^lf m :ni;«fcot7'D/7/,0^fiJt^S 
C SR & * A? t* ** * ti tf> co ^ © 3 

A(DW7>Ii^«HlJl, &fifi77»it*CS 4r *<^« 

£:t>-?0*f2*Sg*3^Tx -tO^«tcJ;*?'tcortSB 
Tffifflt*ffiftOf«llBi*i«tO : 7 r o^7itf 
- 9 (O KSU*£S L , — oco0Jl$Ofg«rt 

(CflfecO0^«-fii3*c:<!:tcJ:O^n^0^(C^^ 

©yo/7AS^^ft^Sltet5g«*ffi«tSa 
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* £ W (4 s # 2 CD ta * T U . & * £S & b -O 

& s ^ to & m * h m iz & #m m v> sp -p * 

If* IB] 



83 12 S& 2 O IB j& K J: 4^cj ^7 A^fiK^ttfc^ 
iy D / 7 i», Hyo^n, «'9r W SC tt 36 « 

* 4* W * tt f - * *J * * * • El -t K * 0 * 



4-127235 (5) 

£ IE SB' I- J:»?^£?n/:-*iiOwf-^yiJ 
•? B X$ K ft Ift * • *<Bffcs>3gJfc*-. BuE 

1 1 (i, 2 XK7t * «* 3 2Xtc<O0 J££*tfflg£> «r 
1 3 *i . -r^xyu-f 1 lco®fl5±OfcKto|§ 

f xyu-f 1 li:Hi^>)l:?*<St4fc*« 

•r-f xyu^3>ho-7^«if^rtairv^o 

£ . IcCCt, K-r -f x ? ^ 7 d v e 

ttSBi** *^B^^D/7As^^ft«:^tTt 

|g 2 EJ( 1 )ti. LI S Pf SICJ: 6l«lgl»fi& 
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(factorial) (O rf o ^ 7 U X * £ o C <D :/ n ^ 

Sl&n (»2H(l)©lfrB) k * * W tfc ffl 

©Sf&Sft result €■ <1> i:»I)W^t« (2?7g)o 
i tlfr^ntt«fll**T (3, 4fT@) s 
Kite i ^ftOiSl result icimi.^, * O IS 
result i:S$8tl6 C 5 fr S ) . i 

result (4tfS) o IISCs l*£n 

38 2 0 ( 2 ) U , *ft^©yo^7Z»S^^Si: 
J:O*20(1)WL I SPyo/7^^E^8i 

2 0a. WSSt factorial OSft^^tft'C* 

i^j^f *-7 - K defun, 3£**-*M**€ 
factorial, 31 8 n & Z tx ? tin \z A ft X & t X 



ft |!fl ¥4-127235 (6) 

#2 1 ^20t(SJ«i:, ± £ K . 

let, * £ T£l t Tl>5 ^0fffi8fi result 

©^rSCSft result H C ^ ^ A* t> A -» T S 9c 
932 1 l^jicx^m^^as^&ffl <1> 1= * -» T\ 

©j?r&&S* let ©*^2 1 i:^3SA { »*?^t *x 

©^aetfe result izmin®. <i> a<^x. n * c 

#2 1 CD 4> *C 14 , & 9 £ L.<0 ffl HI is do ^ 
-*-#2 2 #2 0. 2 1 ±&IC, 

ac*^«ac. - K do, g*)fiLOI|il»a 

£fc i ^AtlfcH 

»©5«ri*tS£t4^S* { *5* < , * *U4 ^ 3D 
^8* i <O^C0^<W(c3t-cfc4-- *7 - K init *> <fc 
step t^^nri^, 4- — 7 — K init U £ 

t>A-£9c9J'^«fc oT^^. ^nri^ftH <i> 



t + -9 - K step tz&-%fr h A * 9km\z-o t>< 
r>XK* & m2 2 l*£^(5<D2lH!BJU»O£j0rii 

*§ 2 2 1 14, Htt*St0^£ST*«, —US 

STUiO tf> & * t> £ iz N Ho^iw^L/r^- 

^?*fi*U, *^a<f&LTO 

& <0 * » * o H22 1 O « £ (4 , /« 7 > * i K, 

4 0 «221fe«l:tf^7^li, »20(1)O3 
fr§OW#«£ (H i) i;W{CLTV>4 0 

♦9=2 2©i| , i:**2-5<05ft^©lA^W|S)* 
t/i0^ 2 2 2 14, »0SLcoiH©flliS do 

0^2 2 2 «l^^bA-jTU4^g) 2 2 3(4, 

nil (nil(4 L I S Pfg©i»*Ptti 



&f*j&<fi*:£L,Elff22 2 2i:t^i^A-3t^4 
9c912 2 4 (l^Bfrffitt result ) 

t><&mztix. moi&Loftimtom do wit t 

9fcS12 2 3 KJ;^T^£n*fi6;o< nil 

**Tfcf* 2 2<DT:^Ktttf* 

« # 2 2 6lcott$<*&g*-tt;b£«'?igL0>& 

s * <* a< n tT s n * * 

ff|Tt4, £1* i i$»n to^^tt:«^fT^ts 
i > n <7> £ * (4fe t (L I S PSfgrott^Tlfti 

ttl^i * <4 nil 4lii^t5. 

^ 2 2 7, $ii2 2 8(4,8 9igl,0>i&S*#T 
* d OWCtt, &Sfci iSCSfe result 

^*?ht (ft2 2 7-c^-jriKm r*j ) . te^^-a: 

result ICftA-r* (?I 2 2 8 T^t L I S P 
CD^^MK rsetqj ) o 
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L I S P :/ a ^ ? * 3520(2)cD^olCgI^ 

at a * n * « 

JS 1 1 H ( a ) ( b )<D& K , L I s p-c^v^n 
*raJ3U<D^nr^Am&s«£0:*&Si£o*t£ 

So 

* 8 B(l >/fgcia5e 

^KIS*0>7'o^^^~C t **o £ 8 19 ( 2 > f* * #8 

* 9 H ( 1 > I* * ^ a /7 S >/fBPL/I tc 
.feSPg^Mtt^^o^^^TifeSo SS9 0(2)(i, 



1 ti . 92B(l)i: * S «*: UX^m^^f ^ 
tr ^ i* -c* 4 o 

7(i, x?«aiu5/D/7A^, & T s 
z>&<&x.&<o7 a ? ? mm. mo & Lm<offlw<» 

io®. «OEb^o$0»(Drt6PT<£ffl-*-S£Sfco 
P 1; 5§ <0 £ * 55 1 10(a)(b)i:iptl>O7* 

So 



?*nfl¥ 4-127235 (7) 

#80(2)*3<fctf?&90(2)OWK43^T*>. 

0(2)4)4 1. 4 2. 4 3 *> «fc 9 0(2 )<0 5 
1, 52. 53) ICfcoT^fcSnTfcOs 

v ? mm*s xv&o &L<omme>* t * *> v>9am 

# 1 0 0 ii . »6B(1)«L I SPyo^^A 
0SC^m-P* S D 

& quote rfii80^6 OTHSSSts: 

*<B^«r c a ~> r s o 

a^-7i»T&S 0 

So 

5u. 0a:sn:<toab*nfc7'o/7i.2 

^SX9tfiLTAdi#«i58i::&9tfaL@®£7nL 
a ¥ =7 $> S o 

^^^n^^D^^A^C^iE^ftl^fcOx 02C 
SSCJ:0«^$n/:7 p o/7A2^»f/:i;A^ 

n^^to *0riis &s<o$ftn*:^r p 
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&m*> tt l . *n^»uhT*4^. •> > # ;u * 

o^^f jr^ju^, ^ ? h ;n*£?y tt iTT* 0 > 
Common LISP fSTIi * tl ^ tl Hffl.O 4- 

X f v ^ 1 0 lT&»*lfc*<'JX 
£$nii, Af-V? 1 0 1 liriICo & & *J Si 

£. £ *l S £ « ^f7n 0 1 3 Ci^o 

X -r *y y 1 0 1 X h <0 fclBO 4- - 7 

Xf7^1 0 1 2T(i, * <0 * - 9 - K 83 IB 



3B 1 3H*#l&LTH3IBX7^y:/l 0 1 
t f N -r *y ^201 fc«fcO*^-r^7 r 201 1 

mtnzti#>^ mi 2 Eaco«**ag*?f ^a-m- 11 * 
^^*y^ 2 0 2 -Cx Htt*^t0^«i 

i)C*c s » 1 4 H~3S 2 1 ES^^l L "C 83 IB J8 1 
2 00^x7^1 0 1 2 10fflSg«-»»lcKB^-r 

SSI 4Hti. ^^r^Sfc^ftO^^coKJKfe let 

(1 0 1 2 1 b) ^^LT 



?5Pfl¥4-127235 (8) 
& m & rij 7 ic««^£-3^«n^«. 

* © * - 9 - K *« * titf * ^attH3CSK^O 
Sft^'iJStti^T^ Xr7^1 0 1 2 1 ic 
ffi»&H'J 7 ©ASK L/r*<-?TttB*tt|gj5£& 

<o * - 7 - K'a< tt n tx . x -r *y 9 P i o l 2 

2*cii^.^^«H'J7cDrtS?irLf:56<or-lKKI 

— KM** iUTCDHSt^mo^Jli. mi 10(a) 

ttE)5£*a<DWl*s 9 1 1 E](a )co£&#!HiJ^© 
5$2 - 1 01:^1/: t(0T*5e 

^f7^1 0 1 3T(*s £ ft *f ( /U £ 

tzit V A b £l*<»"r - ? ) * * © * * (^?«* 
£) dl^-r^c C ©#)£ 9 1 1 [3( b )©&ftj£mi 

* t* * „ 

»C(C. ^f7^ 3 0 2 *> J; r V -f 3 0 2 1, 
^77^ 3 0 2 2 T, ®RFr£BES«8$#©8Uil* 
*t ? « ^f7^ 3 0 2 1 tlis Sfi^-i^^^a 

tr o C oaSlis 91 20CDS*SaS J &^W^ 
(C^CXHdtTiT^o ^7-7^ 3 0 2 2 tli^ 

* < o 

^7-7^ 3 0 3 li . MJEUet (D %l ft m id V> 
~C & Z> 9 MSUet <0#f*8&#ii. Common LISP © 
•&l§ti:«lw«fcn(X. &&HfT progn oKiii^l 

H fr progn 91 5 ® 

progn © £ ft & S £ ^ If t±J L T ft *$ « 
fit& IC . ^f7^ 3 0 4Ti»^WTlC o - 
tx\z£K>. mi I 0(a )©£ft&B'J£©No. 3 <n 
t U Z o 

mi 5 em* * &&.n?r progn© ^ta^s (*t- 

7^1 0 1 2 1 e) «:^LT^4 e 
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^f7^401fcJ;C;xf7y401 3 
2K3S?f progn (0^i:t^^nfc§«iirt i:» 

mi 6Stis Mt*S£«0*:*!>S>ft#KJ8[ defun 
<OSl&*&3 (7f ^1 0 1 2 1 a) ^/TLT^ 

$ „ x -r *y :/ 4 1 1 "C . € !flJ defun £ 

^ ^ v y 4 1 2T. ^ft-rf" 4M««*i 

^ "t & o 

£ £ *C . Xf7^4 1 3fc'J;Cf^f7^4 1 3 

^^*y^4 1 4 T fcU 15 SEm 1 40©^f7^ 
3 0 3 ^tti:,»15 0©S^^?7 progn <D 

progn cD£&«i® tfJ L T * <* SB # EJ ^ & 

ft & K . ^f7y 4 2 7 ti*4^T|t 4 , C 
rilUOs 33 1 lEl(a)Offim«aiJ«^No.4cO 

mi 8 EM*. MS* oapcar O&ft&g ( X -r -y 

0 1 2 1 d) J&^Ufct5^"C**o 
L I S P I* — Jtt K nap M»i^tfri5- &<D 
MS* *f$oT end. U^A^H 

& (mapping) IC S & L Tx C 

Wft mapcar * <o — -3 T . 

£-f ^ Xx'y^SOlTs €8u mapcar ^ ^ 

#<o£&4&3«-fT-5o c: co ge & u ^ mi 20 



WW! ¥4-127235 (9), 
ft tfe k . :* -r -y y 4 1 5 T ± (* * T ffi C 0 = C 
n J: v mi lB!(a)CD££fc&fliJ££>No.2<D 

$1 7@IU HOiSl do ©$ftj&8 (^T7 
^10 12 1 c ) £7nL/c4><£>T*£ 0 

* -r . X7^'y^4 2i-c. gi5 do &mm-f &o 

?K IC . ^7-774 2 2 t>J:'CfXf 7^ 4 2 2 1 , 
*-r-y:/4 22 2s Xf 7y 4 2 2 3 ?«IOiSL 

v * n^ni:^ urm 1 2iaos*4aa 

*.m * s ffiSfes *e < c t o e-r - 

* *m i 2 0(os*ffia^"¥u f diLrias«i^ 

£ ft * * • ft tft K . t$T*!S*-£fc>-*-E!ff2 (2^> 
(X. \Z „ X^*y^4 2 6 T, mi 50O5»«?7 

<o a waste P¥cf tb t xtr 7 * 

tit, x-ryzf5 0 4-c* 7 s — 9 <z>Mti& m 

ft & K . 7^ 5 0 5 T4(**l*Tlt; B - 

tii:J:0s m 1 1 12 ( a ><0 £ & B«J S <*> No . 5 <D 

mi 90(1. if «$tft«iS^/T L 

t> CDT * £«, 

^(c. 777^5 i 2Ts mi 2s<os*jag 
rnj v * * i * cr>«is) oia^css^^ffirft 

X^-y-/5 1 3T. mi 2flOS*ffi 
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TAJ "T<&*£#<0&]3) OB^JS^W^tt 

0i*$^t5, :nia^ m 1 i0(b)(off 
& a B'J & o No . 7 to ® 5£ £ SI £ tt * . 

33 2 OKKi^ ftA setq <0 £ 1ft & S * L rt: 

X ^ v ^ 5 2 1 T> 33 1 2 Eco£*&EI 

< e cn*rj:O.JPll®(b)Offifi4«aiJ^coNo. 
33 2 ##B8Sfe quote <D&m*a9£-^ 

Mtt quote cosisso <fctfc> -c^^^ni y 



1 K it 33 1 20£O«*:*aSl^r^Cf 

tt<o0^ggits. U x Mart fl> , 

<o x o u&jz&m&m » n z * * ^ , < a * > * 

38 2 2 H (1) <OA^*^^t^n<bi, *22a 
(2>U^*J:9tt*f§&t*<D|g3Cgii£**o 
# ic x 331 lE(b)0£|ft«J?tJ£<0#No.l 0 

/< v ^ 9 * — h (backquote) 11 % M & quote 



?Ufin¥ 1-127235 (10) 

* tz 11 WL&t LT&S 0 ift^Jt^ *o 

-So 0J;t(*8Ofc nap (59Sfec0?l»O <&!**> £ L 
T^*.£n*«^-C*>*o U — « K <i ;x - 

tfj&<r§5ELT<F>£j&S 

Ja±cD* &3$M L tzM& quote Ogdft^a-S- 
^ 33 2 latc^to 

h (igSlffltf) €-^*tr**>^-o MS* quote 

<d a fr<om e co ^ c= =3 >va<tti*-cv**ift£,»'S 

ZtitzT*— 9<OUtr>\z^ ^D/7i.T»ffiLT{| 

33 1 1 0(b >«0&ifc«flij£(0 J®No. 1 0 *>'< v 
? ? * - hOBSaCSIIti. ±tetDfi*f£*£fc>ft> 
<OTs ffFffi L tt 1= £ ^ t> L s S¥ 

ffii # <o & t< m < * ) o * . # T < , ^ -y 

si^o^»ias^332 3(a(i)(2>ic^:-ro raia 

(1) i</<7 ^ ^ * - h t<ol<oi;Srjt5toSN 

(2) ^3>7<0^^fc'J^ hi:Wt5*aST* 

So 
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( 1 ) T fi > ^ t- -y y 7 0 1 T > /< -y ^ 7 * - 

- tiii, jsi 20^£*&s** ! f*&ttit::pfc> r *sL 

( 2 ) "Ctix XT- 7.7 7 1 IT. Z3 >*&f&^ 

i 2 * L-r^tTT 

x ^ „ ^ 7 i F*3 8P >!>< 35 ^ ^> ° 
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a) 

(defun factorial (n) 
(let {(result 1))) 
(do ((i 1 (1 ♦ i))) 
((> i n) result) 
(setq result (* i result))))) 
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D0 fO 1" \ , 5 
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(or ( a^d (ipud. -x (j;rst })) 
(member X (yest }>))) 



PROCEDURE OPTIONS(MAIN) ; 

FUN1 ; PROCEDURE (A. B) RETURNS (FIXED BINARY ; 

DECLARE (A. B) FIXED BINARY; 

RETURN (A + B) ; 
END; 

DECLARE C FIXED BINARY ; 

C«FUN1(5,3); 

BEGIN ; 

DECLARE C FIXED BINARY ; 
C « FUN! (2.4); 
END; 
PUT C ; 
END; 
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FACTORIAL : PROCEDURE (N) RETURNS (FIXED BINARY) ; 
DECLARE N FIXED BINARY ; 
BEGIN ; 

DECLARE ( I , RESULT ) FIXED BINARY ; 
RESULT - 1 ; 
DO I - 1 TO N ; 

RESULT « I * RESULT; 
END ; 

RETURN (RESULT) ; 
END; 
END ; 
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